home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_bas / mcvbehtp.zip / VBEHTP40.FRM < prev   
Text File  |  1996-05-16  |  8KB  |  248 lines
  1. VERSION 4.00
  2. Begin VB.Form frmDisplayOnline 
  3.    Appearance      =   0  'Flat
  4.    BackColor       =   &H00C0C0C0&
  5.    Caption         =   "mcr VB/Error Handler - Tracer Profiler (v1.01)"
  6.    ClientHeight    =   3165
  7.    ClientLeft      =   945
  8.    ClientTop       =   1380
  9.    ClientWidth     =   6135
  10.    ControlBox      =   0   'False
  11.    BeginProperty Font 
  12.       name            =   "MS Sans Serif"
  13.       charset         =   0
  14.       weight          =   700
  15.       size            =   8.25
  16.       underline       =   0   'False
  17.       italic          =   0   'False
  18.       strikethrough   =   0   'False
  19.    EndProperty
  20.    ForeColor       =   &H80000008&
  21.    Height          =   3570
  22.    Left            =   885
  23.    MaxButton       =   0   'False
  24.    ScaleHeight     =   3165
  25.    ScaleWidth      =   6135
  26.    Top             =   1035
  27.    Width           =   6255
  28.    Begin VB.CommandButton cmdOnTop 
  29.       Appearance      =   0  'Flat
  30.       BackColor       =   &H80000005&
  31.       Caption         =   "C1"
  32.       Height          =   345
  33.       Left            =   4320
  34.       TabIndex        =   8
  35.       Top             =   270
  36.       Width           =   1725
  37.    End
  38.    Begin VB.Frame Frame1 
  39.       Appearance      =   0  'Flat
  40.       BackColor       =   &H00C0C0C0&
  41.       Caption         =   "Total last same handle"
  42.       BeginProperty Font 
  43.          name            =   "MS Sans Serif"
  44.          charset         =   0
  45.          weight          =   400
  46.          size            =   8.25
  47.          underline       =   0   'False
  48.          italic          =   0   'False
  49.          strikethrough   =   0   'False
  50.       EndProperty
  51.       ForeColor       =   &H80000008&
  52.       Height          =   645
  53.       Left            =   90
  54.       TabIndex        =   2
  55.       Top             =   90
  56.       Width           =   1905
  57.       Begin VB.Label lblHandle 
  58.          Alignment       =   2  'Center
  59.          Appearance      =   0  'Flat
  60.          BackColor       =   &H00808080&
  61.          Caption         =   "0000"
  62.          BeginProperty Font 
  63.             name            =   "MS Sans Serif"
  64.             charset         =   0
  65.             weight          =   400
  66.             size            =   8.25
  67.             underline       =   0   'False
  68.             italic          =   0   'False
  69.             strikethrough   =   0   'False
  70.          EndProperty
  71.          ForeColor       =   &H00FFFFFF&
  72.          Height          =   195
  73.          Left            =   1080
  74.          TabIndex        =   1
  75.          Top             =   360
  76.          Width           =   645
  77.       End
  78.       Begin VB.Label lblCounter 
  79.          Alignment       =   2  'Center
  80.          Appearance      =   0  'Flat
  81.          BackColor       =   &H00808080&
  82.          Caption         =   "0000"
  83.          BeginProperty Font 
  84.             name            =   "MS Sans Serif"
  85.             charset         =   0
  86.             weight          =   400
  87.             size            =   8.25
  88.             underline       =   0   'False
  89.             italic          =   0   'False
  90.             strikethrough   =   0   'False
  91.          EndProperty
  92.          ForeColor       =   &H00FFFFFF&
  93.          Height          =   195
  94.          Left            =   180
  95.          TabIndex        =   0
  96.          Top             =   360
  97.          Width           =   645
  98.       End
  99.    End
  100.    Begin VB.ListBox lstOnline 
  101.       Appearance      =   0  'Flat
  102.       BackColor       =   &H00C0C0C0&
  103.       BeginProperty Font 
  104.          name            =   "MS Sans Serif"
  105.          charset         =   0
  106.          weight          =   400
  107.          size            =   8.25
  108.          underline       =   0   'False
  109.          italic          =   0   'False
  110.          strikethrough   =   0   'False
  111.       EndProperty
  112.       ForeColor       =   &H00000000&
  113.       Height          =   1980
  114.       Left            =   90
  115.       TabIndex        =   7
  116.       Top             =   1080
  117.       Width           =   5955
  118.    End
  119.    Begin VB.Label lblTitle 
  120.       Alignment       =   2  'Center
  121.       Appearance      =   0  'Flat
  122.       BackColor       =   &H00808080&
  123.       BeginProperty Font 
  124.          name            =   "MS Sans Serif"
  125.          charset         =   0
  126.          weight          =   400
  127.          size            =   8.25
  128.          underline       =   0   'False
  129.          italic          =   0   'False
  130.          strikethrough   =   0   'False
  131.       EndProperty
  132.       ForeColor       =   &H00FFFFFF&
  133.       Height          =   195
  134.       Index           =   3
  135.       Left            =   2970
  136.       TabIndex        =   6
  137.       Top             =   810
  138.       Width           =   3075
  139.    End
  140.    Begin VB.Label lblTitle 
  141.       Alignment       =   2  'Center
  142.       Appearance      =   0  'Flat
  143.       BackColor       =   &H00808080&
  144.       BeginProperty Font 
  145.          name            =   "MS Sans Serif"
  146.          charset         =   0
  147.          weight          =   400
  148.          size            =   8.25
  149.          underline       =   0   'False
  150.          italic          =   0   'False
  151.          strikethrough   =   0   'False
  152.       EndProperty
  153.       ForeColor       =   &H00FFFFFF&
  154.       Height          =   195
  155.       Index           =   2
  156.       Left            =   1530
  157.       TabIndex        =   5
  158.       Top             =   810
  159.       Width           =   1365
  160.    End
  161.    Begin VB.Label lblTitle 
  162.       Alignment       =   2  'Center
  163.       Appearance      =   0  'Flat
  164.       BackColor       =   &H00808080&
  165.       BeginProperty Font 
  166.          name            =   "MS Sans Serif"
  167.          charset         =   0
  168.          weight          =   400
  169.          size            =   8.25
  170.          underline       =   0   'False
  171.          italic          =   0   'False
  172.          strikethrough   =   0   'False
  173.       EndProperty
  174.       ForeColor       =   &H00FFFFFF&
  175.       Height          =   195
  176.       Index           =   1
  177.       Left            =   810
  178.       TabIndex        =   4
  179.       Top             =   810
  180.       Width           =   645
  181.    End
  182.    Begin VB.Label lblTitle 
  183.       Alignment       =   2  'Center
  184.       Appearance      =   0  'Flat
  185.       BackColor       =   &H00808080&
  186.       BeginProperty Font 
  187.          name            =   "MS Sans Serif"
  188.          charset         =   0
  189.          weight          =   400
  190.          size            =   8.25
  191.          underline       =   0   'False
  192.          italic          =   0   'False
  193.          strikethrough   =   0   'False
  194.       EndProperty
  195.       ForeColor       =   &H00FFFFFF&
  196.       Height          =   195
  197.       Index           =   0
  198.       Left            =   90
  199.       TabIndex        =   3
  200.       Top             =   810
  201.       Width           =   645
  202.    End
  203. End
  204. Attribute VB_Name = "frmDisplayOnline"
  205. Attribute VB_Creatable = False
  206. Attribute VB_Exposed = False
  207. Option Explicit
  208.  
  209. #If Win16 Then
  210.    Private Declare Function SetWindowPos Lib "user" (ByVal hwnd As Integer, ByVal Position As Integer, ByVal nH As Integer, ByVal nV As Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal nFlags As Integer) As Integer
  211. #Else
  212.    Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  213. #End If
  214.  
  215. Private Sub cmdOnTop_Click()
  216.  
  217.    Dim Dummy   As Integer
  218.  
  219.    If (cmdOnTop.Tag = "Y") Then
  220.       cmdOnTop.Tag = "N"
  221.       cmdOnTop.Caption = mcReadText("F", "")
  222.       Dummy = SetWindowPos(frmDisplayOnline.hwnd, -1, 0, 0, 0, 0, &H43)
  223.    Else
  224.       cmdOnTop.Tag = "Y"
  225.       cmdOnTop.Caption = mcReadText("E", "")
  226.       Dummy = SetWindowPos(frmDisplayOnline.hwnd, -2, 0, 0, 0, 0, &H43)
  227.       frmDisplayOnline.ZOrder 0
  228.    End If
  229.  
  230. End Sub
  231.  
  232. Private Sub Form_Load()
  233.  
  234.    Me.Caption = mcReadText("G", "")
  235.  
  236.    Frame1 = mcReadText("9", "")
  237.  
  238.    lblTitle(0) = mcReadText("A", "")
  239.    lblTitle(1) = mcReadText("B", "")
  240.    lblTitle(2) = mcReadText("C", "")
  241.    lblTitle(3) = mcReadText("D", "")
  242.  
  243.    cmdOnTop.Tag = "Y"
  244.    cmdOnTop.Caption = mcReadText("E", "")
  245.  
  246. End Sub
  247.  
  248.